// while test

//----------------------------------------------------------------------------//

function Main()

   local n := 1

   while n++ < 3
      MsgInfo( n )
      MsgInfo( "wellcome to the world of Clipper 32 bits with Five 1.0" )
   end

return nil

//----------------------------------------------------------------------------//
